#!/usr/bin/perl -w

sub is_palindrom {
	return ( @_[0] == reverse @_[0]);
}

sub d2b {
	return sprintf("%b", $_[0]);
}

my $sum = 0;
foreach my $num (1..1000000) {
	if ( is_palindrom($num) &&
		 is_palindrom( d2b($num)) ) {
		$sum = $sum + $num;
	}
}

print $sum, "\n";
